Những câu hỏi liên quan
chi linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 12 2021 lúc 12:20

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (i%3==0) cout<<i<<" ";

return 0;

}

Bình luận (0)
chi linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 12 2021 lúc 12:20

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (i%3==0) cout<<i<<" ";

return 0;

}

Bình luận (0)
Trần Linh Chi
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:57

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (i%3==0) cout<<i<<" ";

return 0;

}

Bình luận (0)
lân đinh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 5 2021 lúc 10:50

Bài 3:

uses crt;

var i:integer;

{------------------chuong-trinh-con-kiem-tra-so-nguyen-to----------------------}

function ktnt(x:integer):boolean;

var kt:boolean;

i:integer;

begin

kt:=true;

for i:=2 to x-1 do

  if x mod i=0 then kt:=false;

if kt=true then ktnt:=true

else ktnt:=false;

end;

{-------------------------chuong-trinh-chinh----------------------------}

begin

clrscr;

for i:=2 to 9999 do 

  if (ktnt(i)=true) and (ktnt(i+2)=true) then 

begin

writeln(i,',',i+2);

delay(500);

end;

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
11 tháng 5 2021 lúc 10:56

Bài 4: 

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

write('Nhap ngay:'); readln(a);

write('Nhap thang:'); readln(b);

write('Nhap nam:'); readln(c);

kt:=0;

if (b=1) and (0<a) and (a<=31) then kt:=1;

if (b=2) and (0<a) and (a<=28) then kt:=1;

if (b=2) and (0<a) and (a<=29) and (c mod 4=0) then kt:=1;

if (b=3) and (0<a) and (a<=31) then kt:=1;

if (b=4) and (0<a) and (a<=30) then kt:=1;

if (b=5) and (0<a) and (a<=31) then kt:=1;

if (b=6) and (0<a) and (a<=30) then kt:=1;

if (b=7) and (0<a) and (a<=31) then kt:=1;

if (b=8) and (0<a) and (a<=31) then kt:=1;

if (b=9) and (0<a) and (a<=30) then kt:=1;

if (b=10) and (0<a) and (a<=31) then kt:=1;

if (b=11) and (0<a) and (a<=30) then kt:=1;

if (b=12) and (0<a) and (a<=31) then kt:=1;

if kt=0 then writeln('Khong hop le')

else writeln('Hop le');

readln;

end.

Bình luận (0)
Lê Thị Cẩm Tiên
9 tháng 7 2021 lúc 10:30

Bạn ơi bạn làm ra bài 3 chưa, cho mình xin cách làm nữa.

Python

Bình luận (0)
SKT_Rengar Thợ Săn Bóng...
Xem chi tiết
PARK CHAEYOUNG
Xem chi tiết
32. Lê Thị Phương Thi
Xem chi tiết
Kiều Vũ Linh
19 tháng 1 2022 lúc 9:46

Var s,n,i,so:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i)readln(so);

If so mod 2 = 0 then s:=s+so;

End;

Write('Tong cac so chan la ',s);

Readln;

End.

Bình luận (0)
Minh Lệ
20 tháng 1 2022 lúc 23:57

Program HOC24;

var i,n,t: integer;

a: array[1..32000] of integer;

begin

write('Nhap n= '); readln(n);

for i:=1 to n do if i=n then readln(a[i]) else read(a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chia het cho 2 la: ',t);

readln

end.

Bình luận (0)
phạm bá chỉnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2021 lúc 22:44

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
Haruta Akashi
Xem chi tiết